home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / 3D-Graphics-Editors / lsystem3.exe / L System 3 / _setup.1 / BOP13.LS < prev    next >
Text File  |  1998-10-02  |  739b  |  50 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. 31
  3. 18
  4. 100
  5. #
  6. # axiom
  7. #
  8. +(90)>c(12)N
  9. #
  10. # rules
  11. #
  12. N=FII[&(60)Y]>(90)[&(45)'(0.8)A]>(90)[&(60)Y]>(90)[&(45)'(0.8)D]FIK
  13. #
  14. # forms substitutes, leaves from bop01.ls
  15. #
  16. Y=[c(4){++l.--l.--l.++|++l.--l.--l.}]
  17. l=g(20)l # leaves grow in size with recursion level
  18. #
  19. # forms substitutes, flowers from bop01.ls
  20. #
  21. K=[!c(2)FF>w>(72)w>(72)w>(72)w>(72)w]
  22. w=[c(2)^!F][c(5)&(72){-(54)f(300)+(54)f(300)|-(54)f(300)+(54)f(300)}]
  23. f=_  # removes all flower leaves except those of the last recursion
  24. #
  25. # 7 step delay for A(i)
  26. #
  27. A=B
  28. B=C
  29. C=D
  30. D=E
  31. E=G
  32. G=H
  33. H=N
  34. #
  35. # 10 delay for I(i)
  36. #
  37. I=FO
  38. O=FP
  39. P=FQ
  40. Q=FR
  41. R=FS
  42. S=FT
  43. T=FU
  44. U=FV
  45. V=FW
  46. W=FX
  47. X=_
  48. #
  49. @
  50.